home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / spoc88.zip / TBTASM.ZIP / SCRNDEMO.BAS < prev    next >
BASIC Source File  |  1988-06-14  |  230b  |  16 lines
  1. CLS
  2. DEFINT A-Z
  3. A$="THIS IS A TEST"
  4. ROW=16
  5. COL=15
  6. ATTRIB=7
  7. CALL WRT(A$,ROW,COL,ATTRIB)
  8. CALL WRT("Another test",5,20,15)
  9. CALL WRT(LEFT$(A$,8)+"ALSO GOOD",10,40,7)
  10. END
  11.  
  12. SUB  WRT  INLINE
  13.     $INLINE "TBQPA.BIN"
  14. END  SUB
  15.  
  16.